﻿<!-- #include file="mymin.asp" -->
<%
If Request("submit") <> "" Then

Dim list_,article_,discuss_,title_,bbslist_,topicmin_,topicmax_,replymin_,replymax_,numhit_,numbbshit_
list_=Request.Form("numlist")
article_=Request.Form("numarticle")
discuss_=Request.Form("numdiscuss")
title_=Request.Form("numtitle")
bbslist_=Request.Form("numbbslist")
topicmin_=Request.Form("numtopicmin")
topicmax_=Request.Form("numtopicmax")
replymin_=Request.Form("numreplymin")
replymax_=Request.Form("numreplymax")
numhit_=Request.Form("numhit")
numbbshit_=Request.Form("numbbshit")
If Not IsNumeric(list_&article_&discuss_&title_&bbslist_&topicmin_&topicmax_&replymin_&replymax_&numhit_&numbbshit_) Then
	Call Error("<card title='出错'><p>请输入数字！<br/><a href=""num.asp?sid="&sid&""">返回修改</a>")
End If

if numhit_>4 Or numbbshit_>4 then
	Call Error("<card title='出错'><p>点击种子大于4效果太夸张！设为2最合适<br/><a href=""num.asp?sid="&sid&""">返回修改</a>")
end if

'----------------------------------------------------------------
'	生成num.asp文件
'----------------------------------------------------------------
dim HU_Config,HU_File

HU_File= "../../config/num.asp"'生成num.asp文件路径

HU_Config="<"&"%"
HU_Config=HU_Config+chr(13)&chr(10)&"numtitle="""&int(title_)&""" '标题显示字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numlist="""&int(list_)&""" '文章列表数"
HU_Config=HU_Config+chr(13)&chr(10)&"numarticle="""&int(article_)&""" '文章每页字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numdiscuss="""&int(discuss_)&""" '文章评论最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numhit="""&int(numhit_)&""" '文章点击种子"
HU_Config=HU_Config+chr(13)&chr(10)&"numbbslist="""&int(bbslist_)&""" '论坛列表数"
HU_Config=HU_Config+chr(13)&chr(10)&"numtopicmin="""&int(topicmin_)&""" '帖子最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numtopicmax="""&int(topicmax_)&""" '帖子最多字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numreplymin="""&int(replymin_)&""" '回帖最少字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numreplymax="""&int(replymax_)&""" '回帖最多字数"
HU_Config=HU_Config+chr(13)&chr(10)&"numbbshit="""&int(numbbshit_)&""" '帖子点击种子"
HU_Config=HU_Config+chr(13)&chr(10)&"%"&">"
Call savetofile(HU_Config,HU_File)
Response.Write "<card id='card2' title='正在返回' ontimer='index.asp?sid="&sid&"'><timer value='10'/><p>"
Response.Write "成功设置！正在返回..."
else%>
<card id="index" title="网站字数配置">
<p align="left">
【所有栏目】<br/>
标题显示长度<input name="numtitle<%=time_r%>" type="text" value="<%=numtitle%>"/><br/>
【文章栏目】<br/>
文章列表数<input name="numlist<%=time_r%>" type="text" value="<%=numlist%>"/><br/>
文章每页字数<input name="numarticle<%=time_r%>" type="text" value="<%=numarticle%>"/><br/>
文章评论最少字数<input name="numdiscuss<%=time_r%>" type="text" value="<%=numdiscuss%>"/><br/>
文章点击种子<input name="numhit<%=time_r%>" type="text" value="<%=numhit%>"/><br/>
【论坛栏目】<br/>
论坛列表数<input name="numbbslist<%=time_r%>" type="text" value="<%=numbbslist%>"/><br/>
帖子最少字数<input name="numtopicmin<%=time_r%>" type="text" value="<%=numtopicmin%>"/><br/>
帖子最多字数<input name="numtopicmax<%=time_r%>" type="text" value="<%=numtopicmax%>"/><br/>
回帖最少字数<input name="numreplymin<%=time_r%>" type="text" value="<%=numreplymin%>"/><br/>
回帖最多字数<input name="numreplymax<%=time_r%>" type="text" value="<%=numreplymax%>"/><br/>
帖子点击种子<input name="numbbshit<%=time_r%>" type="text" value="<%=numbbshit%>"/><br/>
<anchor>保存配置
<go href="num.asp?submit=true&amp;sid=<%=sid%>" method="post">
<postfield name="numlist" value="$(numlist<%=time_r%>)"/>
<postfield name="numarticle" value="$(numarticle<%=time_r%>)"/>
<postfield name="numtitle" value="$(numtitle<%=time_r%>)"/>
<postfield name="numdiscuss" value="$(numdiscuss<%=time_r%>)"/>
<postfield name="numbbslist" value="$(numbbslist<%=time_r%>)"/>
<postfield name="numtopicmin" value="$(numtopicmin<%=time_r%>)"/>
<postfield name="numtopicmax" value="$(numtopicmax<%=time_r%>)"/>
<postfield name="numreplymin" value="$(numreplymin<%=time_r%>)"/>
<postfield name="numreplymax" value="$(numreplymax<%=time_r%>)"/>
<postfield name="numhit" value="$(numhit<%=time_r%>)"/>
<postfield name="numbbshit" value="$(numbbshit<%=time_r%>)"/>
</go>
</anchor><br/>
温馨提示:<br/>
1、点击种子:大于0则表示点击率开启作弊。如果设为3，点击率会随机加上1~3<br/>
2、帖子目前采用微博模式，限定字数，有助于提高论坛活跃度
<%end if%><br/>
<a href="index.asp?sid=<%=sid%>">[网站配置]</a><%call Last%>